home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / kan_m.has < prev    next >
Encoding:
Text File  |  1998-08-27  |  5.0 KB  |  237 lines
  1. *---------------------------------------
  2. *
  3. *    è┐Äaê┌ô«
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.  
  13.     .xdef    kan_init
  14.     .xref    pcg_data
  15.     .xref    pal_data
  16.     .xref    adpcm_data
  17.  
  18.     .text
  19.     .even
  20. *---------------------------------------
  21. *    è┐ÄaÅëè·ë╗
  22. *
  23. kan_init:
  24.     move.w    #7,C_H_X(a1)
  25.     move.w    #32,C_H_Y(a1)
  26.     move.w    #14,C_HD_X(a1)
  27.     move.w    #62,C_HD_Y(a1)
  28.     move.w    #48,C_MD_X1(a1)
  29.     move.w    #240,C_MD_X2(a1)
  30.     move.w    #48,C_MD_Y1(a1)
  31.     move.w    #240,C_MD_Y2(a1)
  32.     move.w    #7,C_SA_F(a1)
  33.     move.w    #5,C_SSA_F(a1)
  34.     move.l    #kan_motion,C_A_DT(a1)
  35.     move.l    #kan_display,C_PCG_D(a1)
  36.     move.l    #kan_move_data,C_JOY(a1)
  37.     move.l    #kan_attack_data,C_HIT_D(a1)
  38.     move.l    #kan_se_data,C_PCM_D(a1)
  39.  
  40.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  41.     lea.l    pcg_data,a4
  42.  
  43.     movea.l    a2,a6
  44.     move.w    #3904-1,d1
  45. @@:
  46.     move.l    (a4)+,(a2)+
  47.     dbra    d1,@b
  48.     adda.l    #15744,a6
  49.     move.w    #160-1,d1
  50. @@:
  51.     move.l    (a4)+,(a6)+
  52.     dbra    d1,@b
  53.  
  54.     move.w    C_COL(a1),d1
  55.     add.w    d1,d1
  56.     add.w    d1,d1
  57.     lea.l    kan_palette,a4
  58.     movea.l    0(a4,d1.w),a4
  59.     move.w    #8-1,d1
  60. @@:
  61.     move.l    (a4)+,(a3)+
  62.     dbra    d1,@b
  63.  
  64.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  65.     rts
  66. *---------------------------------------
  67. *    è┐Äaò\Ī
  68. *
  69. kan_display:
  70.     move.w    C_M_F(a1),d0
  71.     add.w    d0,d0
  72.     move.w    display_tbl(pc,d0.w),d0
  73.     jmp    display_tbl(pc,d0.w)
  74. *---------------------------------------
  75.     .even
  76. display_tbl:
  77.     .dc.w    kan_move-display_tbl,kan_attack-display_tbl
  78.     .dc.w    kan_hit-display_tbl,kan_win-display_tbl,kan_g-display_tbl
  79.     .dc.w    kan_attack-display_tbl,0,kan_attack-display_tbl
  80. *---------------------------------------
  81. kan_move:
  82.     move.w    C_CNT(a1),d0
  83.     add.w    d0,d0
  84.  
  85.     tst.w    C_LR_F(a1)
  86.     bne    @f
  87.     move.w    move_tbl_right(pc,d0.w),d0
  88.     jmp    move_tbl_right(pc,d0.w)
  89. @@:
  90.     move.w    move_tbl_left(pc,d0.w),d0
  91.     jmp    move_tbl_left(pc,d0.w)
  92. *---------------------------------------
  93.     .even
  94. move_tbl_left:
  95.     .dc.w    kan_n-move_tbl_left,kan_for-move_tbl_left
  96.     .dc.w    kan_back-move_tbl_left
  97. move_tbl_right:
  98.     .dc.w    kan_n-move_tbl_right,kan_back-move_tbl_right
  99.     .dc.w    kan_for-move_tbl_right
  100. *---------------------------------------
  101. kan_attack:
  102.     move.w    C_AK_F(a1),d0
  103.     add.w    d0,d0
  104.     move.w    d0,d1
  105.     add.w    d0,d0
  106.     add.w    d1,d0
  107.     move.w    C_AM_F(a1),d1
  108.     add.w    d1,d1
  109.     add.w    d1,d0
  110.     move.w    attack_tbl(pc,d0.w),d0
  111.     jmp    attack_tbl(pc,d0.w)
  112. *---------------------------------------
  113.     .even
  114. attack_tbl:
  115.     .dc.w    mid_s-attack_tbl,mid_a-attack_tbl,mid_t-attack_tbl
  116.     .dc.w    low_s-attack_tbl,low_a-attack_tbl,low_t-attack_tbl
  117.     .dc.w    high_s-attack_tbl,high_a-attack_tbl,low_t-attack_tbl
  118.     .dc.w    kan_sa_s-attack_tbl,kan_sa_a-attack_tbl,0
  119.     .dc.w    low_s-attack_tbl,low_a-attack_tbl,low_t-attack_tbl
  120. *---------------------------------------
  121.     .include    kan_n.inc
  122. *---------------------------------------
  123.     .include    kan_am.inc
  124. *---------------------------------------
  125.     .include    kan_al.inc
  126. *---------------------------------------
  127.     .include    kan_ah.inc
  128. *---------------------------------------
  129.     .include    kan_h.inc
  130. *---------------------------------------
  131.     .include    kan_w.inc
  132. *---------------------------------------
  133.     .include    kan_g.inc
  134. *---------------------------------------
  135.     .include    kan_sa.inc
  136. *---------------------------------------
  137. kan_motion:
  138.     .dc.w    11,6,18
  139.     .dc.w    16,10,24
  140.     .dc.w    40,10,34
  141.     .dc.w    10,40,0
  142.     .dc.w    120,10,40
  143. kan_attack_data:
  144.     .dc.w    24,0,8,16,16,40,8,0,1,10
  145.     .dc.w    8,-16,16,8,32,16,25,0,1,15
  146.     .dc.w    28,0,12,16,24,32,35,0,2,30
  147.     .dc.w    24,0,8,8,16,16,25,0,1,20
  148.     .dc.w    8,-16,16,8,32,16,200,0,2,50
  149. kan_move_data:
  150.     .dc.w     0, 0
  151.     .dc.w     0,-2
  152.     .dc.w     0, 2
  153.     .dc.w     0, 0
  154.     .dc.w    -2, 0
  155.     .dc.w    -2,-2
  156.     .dc.w    -2, 2
  157.     .dc.w     0, 0
  158.     .dc.w     2, 0
  159.     .dc.w     2,-2
  160.     .dc.w     2, 2
  161. kan_se_data:
  162.     .dc.l    adpcm_data+KAN01        * ÄπìUîéÄnô«é`écéoébél
  163.     .dc.w    $f908
  164.     .dc.w    534
  165.     .dc.w    0
  166.     .dc.l    adpcm_data+KAN02        * ÆåìUîéÄnô«é`écéoébél
  167.     .dc.w    $f908
  168.     .dc.w    834
  169.     .dc.w    0
  170.     .dc.l    adpcm_data+KAN02        * ï¡ìUîéÄnô«é`écéoébél
  171.     .dc.w    $f908
  172.     .dc.w    834
  173.     .dc.w    0
  174.     .dc.l    adpcm_data+KAN02
  175.     .dc.w    $f908
  176.     .dc.w    834
  177.     .dc.w    1
  178.     .dc.l    adpcm_data+KAN04
  179.     .dc.w    $f908
  180.     .dc.w    1612
  181.     .dc.w    1
  182.  
  183.     .dc.l    adpcm_data+BUO            * ÄπìUîéö╗ÆΦÅoî╗é`écéoébél
  184.     .dc.w    $b904
  185.     .dc.w    942
  186.     .dc.w    0
  187.     .dc.l    adpcm_data+KAN01        * ÆåìUîéö╗ÆΦÅoî╗é`écéoébél
  188.     .dc.w    $f908
  189.     .dc.w    534
  190.     .dc.w    0
  191.     .dc.l    adpcm_data+KAN03        * ï¡ìUîéö╗ÆΦÅoî╗é`écéoébél
  192.     .dc.w    $f908
  193.     .dc.w    2176
  194.     .dc.w    1
  195.     .dc.l    adpcm_data+GYOH
  196.     .dc.w    $f900
  197.     .dc.w    706
  198.     .dc.w    1
  199.     .dc.l    adpcm_data+KAN05
  200.     .dc.w    $f908
  201.     .dc.w    856
  202.     .dc.w    1
  203.  
  204.     .dc.l    adpcm_data            * ÄπìUîéôûé╜éΦé`écéoébél
  205.     .dc.w    $b904
  206.     .dc.w    896
  207.     .dc.w    2
  208.     .dc.l    adpcm_data            * ÆåìUîéôûé╜éΦé`écéoébél
  209.     .dc.w    $f908
  210.     .dc.w    896
  211.     .dc.w    3
  212.     .dc.l    adpcm_data            * ï¡ìUîéôûé╜éΦé`écéoébél
  213.     .dc.w    $f904
  214.     .dc.w    896
  215.     .dc.w    3
  216.     .dc.l    adpcm_data            * òKÄEïZôûé╜éΦé`écéoébél
  217.     .dc.w    $f904
  218.     .dc.w    896
  219.     .dc.w    3
  220.     .dc.l    adpcm_data
  221.     .dc.w    $f904
  222.     .dc.w    896
  223.     .dc.w    3
  224.  
  225.     .dc.l    adpcm_data+KAN06        * éjéné`écéoébél
  226.     .dc.w    $f908
  227.     .dc.w    2880
  228.     .dc.w    4
  229.  
  230.     .dc.l    adpcm_data+KAN05        * Åƒé┐é`écéoébél
  231.     .dc.w    856                * âvâìâOâëâÇé╠ì\æóÅπé▒éΩé┼éóéó
  232.  
  233. kan_palette:
  234.     .dc.l    pal_data,pal_data+32
  235. *---------------------------------------
  236.     .end
  237.